﻿Public Class cDatos_Fijos
    Private datos As New dDatos_Fijos

    Public Function Cargar(ByVal Tabla As String) As DataSet
        Dim Resultado As DataSet
        Resultado = datos.CargarMysql(Tabla)
        Return Resultado
    End Function
    Public Function Codigo(ByVal campo As String, ByVal tabla As String) As String
        Dim resultado As String
        resultado = datos.Devolver_Codigo(campo, tabla)
        Return resultado
    End Function
    Public Function Nombre(ByVal campo As String, ByVal tabla As String) As String
        Dim resultado As String
        resultado = datos.Devolver_Nombre(campo, tabla)
        Return resultado
    End Function
    Public Sub Codigo_Departamento(ByVal value As String)
        datos.Guardar_Codigo(value)
    End Sub
    'funciones buenas
    Public Function cbo_tipo_identificacion() As DataSet
        Dim resultado As DataSet
        resultado = datos.CargarMysql("Ti")
        Return resultado
    End Function
End Class
